home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / EMAP.DIR / 00187_Script_Animate-Circle < prev    next >
Text File  |  1995-09-12  |  7KB  |  253 lines

  1. on Animate2 whichsprite, whichsound, HowManyTimes
  2.   global gAnimationcast
  3.   puppetsound whichsound
  4.   set gAnimationcast = the castnum of sprite whichsprite
  5.   set count = 0
  6.   set animating = 1
  7.   repeat while count < HowManyTimes
  8.     if animating = 1 then
  9.       set the castnum of sprite whichsprite = gAnimationcast + 1
  10.       updatestage
  11.       if (the mousedown) then 
  12.         set animating = 0
  13.         exit repeat
  14.       end if
  15.       wait .2
  16.       set the castnum of sprite whichsprite = gAnimationcast
  17.       updatestage
  18.       if (the mousedown) then 
  19.         set animating = 0
  20.         exit repeat
  21.       end if
  22.       wait .8
  23.       set count = count + 1
  24.     end if
  25.   end repeat
  26.   set the castnum of sprite whichsprite = gAnimationcast
  27.   updatestage
  28.   Puppetsound 0
  29. end
  30.  
  31. on Animate2X whichsprite1, whichsprite2, whichsound, HowManyTimes
  32.   global gAnimationcast, gAnimationcast2
  33.   set gAnimationcast = the castnum of sprite whichsprite1
  34.   set gAnimationcast2 = the castnum of sprite whichsprite2
  35.   set count = 0
  36.   set cowhead = 1
  37.   set animating = 1
  38.   repeat while count < HowManyTimes
  39.     if animating = 1 then
  40.       set the castnum of sprite whichsprite1 = gAnimationcast + 1
  41.       puppetsound whichsound
  42.       updatestage
  43.       wait .5
  44.       if (the mousedown) then 
  45.         set animating = 0
  46.         exit repeat
  47.       end if
  48.       if cowhead = 1 then
  49.         set the castnum of sprite whichsprite2 = gAnimationcast2 + 1
  50.         updatestage
  51.         wait .3
  52.         if (the mousedown) then 
  53.           set animating = 0
  54.           exit repeat
  55.         end if
  56.         set the castnum of sprite whichsprite2 = gAnimationcast2
  57.         updatestage
  58.         wait .3
  59.         set cowhead = 0
  60.       else
  61.         set cowhead = 1
  62.       end if
  63.       set the castnum of sprite whichsprite1 = gAnimationcast
  64.       Puppetsound 0
  65.       updatestage
  66.       wait .3
  67.       if (the mousedown) then 
  68.         set animating = 0
  69.         exit repeat
  70.       end if
  71.       set count = count + 1
  72.     end if
  73.   end repeat
  74.   set the castnum of sprite whichsprite2 = gAnimationcast2
  75.   set the castnum of sprite whichsprite1 = gAnimationcast
  76.   puppetsound 0
  77.   updatestage
  78. end
  79.  
  80.  
  81. on Animate5X whichsprite1, whichsprite2, whichsound, HowManyTimes
  82.   global gAnimationcast1, gAnimationcast2
  83.   set gAnimationcast1 = the castnum of sprite whichsprite1
  84.   set gAnimationcast2 = the castnum of sprite whichsprite2
  85.   set count = 0
  86.   set animating = 1
  87.   puppetsound whichsound
  88.   repeat while count < HowManyTimes
  89.     if animating = 1 then
  90.       set the castnum of sprite whichsprite1 = gAnimationcast1 + 1
  91.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 1
  92.       updatestage
  93.       wait .2
  94.       if (the mousedown) then 
  95.         set animating = 0
  96.         exit repeat
  97.       end if
  98.       set the castnum of sprite whichsprite1 = gAnimationcast1
  99.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 2
  100.       updatestage
  101.       if (the mousedown) then 
  102.         set animating = 0
  103.         exit repeat
  104.       end if
  105.       wait .2
  106.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 3
  107.       updatestage
  108.       if (the mousedown) then 
  109.         set animating = 0
  110.         exit repeat
  111.       end if
  112.       wait .2
  113.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 4
  114.       updatestage
  115.       if (the mousedown) then 
  116.         set animating = 0
  117.         exit repeat
  118.       end if
  119.       wait .5
  120.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 3
  121.       updatestage
  122.       if (the mousedown) then 
  123.         set animating = 0
  124.         exit repeat
  125.       end if
  126.       wait .2
  127.       set the castnum of sprite whichsprite2 = gAnimationcast2
  128.       updatestage
  129.       if (the mousedown) then 
  130.         set animating = 0
  131.         exit repeat
  132.       end if
  133.       wait .2
  134.       set the castnum of sprite whichsprite1 = gAnimationcast1 + 1
  135.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 1
  136.       updatestage
  137.       if (the mousedown) then 
  138.         set animating = 0
  139.         exit repeat
  140.       end if
  141.       wait .2
  142.       set the castnum of sprite whichsprite1 = gAnimationcast1
  143.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 2
  144.       updatestage
  145.       if (the mousedown) then 
  146.         set animating = 0
  147.         exit repeat
  148.       end if
  149.       wait .2
  150.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 3
  151.       updatestage
  152.       if (the mousedown) then 
  153.         set animating = 0
  154.         exit repeat
  155.       end if
  156.       wait .2
  157.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 4
  158.       updatestage
  159.       if (the mousedown) then 
  160.         set animating = 0
  161.         exit repeat
  162.       end if
  163.       wait .5
  164.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 3
  165.       updatestage
  166.       if (the mousedown) then 
  167.         set animating = 0
  168.         exit repeat
  169.       end if
  170.       wait .2
  171.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 4
  172.       updatestage
  173.       if (the mousedown) then 
  174.         set animating = 0
  175.         exit repeat
  176.       end if
  177.       wait .5
  178.       set the castnum of sprite whichsprite2 = gAnimationcast2 + 3
  179.       updatestage
  180.       if (the mousedown) then 
  181.         set animating = 0
  182.         exit repeat
  183.       end if
  184.       wait .2
  185.       set count = count + 1
  186.     end if
  187.   end repeat
  188.   set the castnum of sprite whichsprite2 = gAnimationcast2
  189.   set the castnum of sprite whichsprite1 = gAnimationcast1
  190.   updatestage
  191.   puppetsound 0
  192. end
  193.  
  194. on Animate5 whichsprite, whichsound
  195.   global gAnimationcast
  196.   puppetsound whichsound
  197.   set gAnimationcast = the castnum of sprite whichsprite
  198.   repeat with x = 1 to 4
  199.     set the castnum of sprite whichsprite = gAnimationcast + x
  200.     updatestage
  201.     wait .1
  202.   end repeat
  203.   set the castnum of sprite whichsprite = gAnimationcast
  204.   updatestage
  205.   wait .1
  206.   Puppetsound 0
  207. end
  208.  
  209. on Animate6 whichsprite, whichsound
  210.   global gAnimationcast
  211.   puppetsound whichsound
  212.   updatestage
  213.   set animating = 1
  214.   repeat while (soundbusy(1) and (animating = 1))
  215.     wait .3
  216.     set gAnimationcast = the castnum of sprite whichsprite
  217.     repeat with x = 1 to 5 
  218.       if (the mousedown) then 
  219.         set animating = 0
  220.         exit repeat
  221.       end if
  222.       set the castnum of sprite whichsprite = gAnimationcast + x
  223.       updatestage
  224.       wait .2
  225.     end repeat
  226.     set the castnum of sprite whichsprite = gAnimationcast
  227.     updatestage
  228.   end repeat
  229.   Puppetsound 0
  230. end
  231.  
  232. --on resetit
  233. --  if (the mousedown) then
  234. --    Puppetsound 0
  235. --    set the castnum of sprite whichsprite = gAnimationcast
  236. --    abort
  237. --  end if
  238. --end
  239.  
  240. on Animate12 whichsprite, whichsound
  241.   global gAnimationcast
  242.   puppetsound whichsound
  243.   set gAnimationcast = the castnum of sprite whichsprite
  244.   repeat with x = 1 to 11
  245.     set the castnum of sprite whichsprite = gAnimationcast + x
  246.     updatestage
  247.     wait .1
  248.   end repeat
  249.   set the castnum of sprite whichsprite = gAnimationcast
  250.   updatestage
  251.   wait .1
  252.   Puppetsound 0
  253. end